home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / utility / ds0360 / pb32.exe / INDEX.BAT < prev    next >
DOS Batch File  |  1992-09-04  |  6KB  |  356 lines

  1. @echo off
  2. rem ######################################################################
  3. rem ##                                                                  ##
  4. rem ##                      I N D E X   V1.00                           ##
  5. rem ##                                                                  ##
  6. rem ##         Dienstprogramm für den PROFIBATCH-Developer              ##
  7. rem ##                                                                  ##
  8. rem ##    (C) 1991 by W. Andreas Pollack. Alle Rechte vorbehalten.      ##
  9. rem ##                                                                  ##
  10. rem ######################################################################
  11.  
  12.  
  13. rem ++++++++++++++++++++++++++++++++++++++++++++++++++++
  14. rem               SEITE 1
  15. rem +++++++++++++++++++++++++++++++++++++++++++++++++++
  16. :menu1
  17. USELIB 1 INDEX
  18. if errorlevel 254 goto end
  19. if errorlevel 19 goto pos19
  20. if errorlevel 18 goto pos18
  21. if errorlevel 17 goto pos17
  22. if errorlevel 16 goto pos16
  23. if errorlevel 15 goto pos15
  24. if errorlevel 14 goto pos14
  25. if errorlevel 13 goto pos13
  26. if errorlevel 12 goto pos12
  27. if errorlevel 11 goto pos11
  28. if errorlevel 10 goto pos10
  29. if errorlevel 9 goto pos9
  30. if errorlevel 8 goto pos8
  31. if errorlevel 7 goto pos7
  32. if errorlevel 6 goto pos6
  33. if errorlevel 5 goto pos5
  34. if errorlevel 4 goto pos4
  35. if errorlevel 3 goto pos3
  36. if errorlevel 2 goto pos2
  37. if errorlevel 1 goto pos1
  38.  
  39. :pos1
  40. USELIB 2 INDEX
  41. goto menu1
  42.  
  43. :pos2
  44. USELIB 3-6 INDEX
  45. goto menu1
  46.  
  47. :pos3
  48. USELIB 7-9 INDEX
  49. goto menu1
  50.  
  51. :pos4
  52. USELIB 10 INDEX
  53. goto menu1
  54.  
  55. :pos5
  56. USELIB 11 INDEX
  57. goto menu1
  58.  
  59. :pos6
  60. USELIB 7-11 INDEX
  61. goto menu1
  62.  
  63. :pos7
  64. USELIB 12 INDEX
  65. goto menu1
  66.  
  67. :pos8
  68. USELIB 13-14 INDEX
  69. goto menu1
  70.  
  71. :pos9
  72. USELIB 15 INDEX
  73. goto menu1
  74.  
  75. :pos10
  76. USELIB 16 INDEX
  77. goto menu1
  78.  
  79. :pos11
  80. USELIB 17 INDEX
  81. goto menu1
  82.  
  83. :pos12
  84. USELIB 18 INDEX
  85. goto menu1
  86.  
  87. :pos13
  88. USELIB 19 INDEX
  89. goto menu1
  90.  
  91. :pos14
  92. USELIB 15 INDEX
  93. goto menu1
  94.  
  95. :pos15
  96. USELIB 20 INDEX
  97. goto menu1
  98.  
  99. :pos16
  100. USELIB 21 INDEX
  101. goto menu1
  102.  
  103. :pos17
  104. USELIB 22 INDEX
  105. goto menu1
  106.  
  107. :pos18
  108. USELIB 23 INDEX
  109. goto menu1
  110.  
  111. :pos19
  112. goto menu2
  113.  
  114. rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  115. rem              SEITE 2
  116. rem ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  117. :menu2
  118. USELIB 24 INDEX
  119. if errorlevel 254 goto end
  120. if errorlevel 19 goto pos19_2
  121. if errorlevel 18 goto pos18_2
  122. if errorlevel 17 goto pos17_2
  123. if errorlevel 16 goto pos16_2
  124. if errorlevel 15 goto pos15_2
  125. if errorlevel 14 goto pos14_2
  126. if errorlevel 13 goto pos13_2
  127. if errorlevel 12 goto pos12_2
  128. if errorlevel 11 goto pos11_2
  129. if errorlevel 10 goto pos10_2
  130. if errorlevel 9 goto pos9_2
  131. if errorlevel 8 goto pos8_2
  132. if errorlevel 7 goto pos7_2
  133. if errorlevel 6 goto pos6_2
  134. if errorlevel 5 goto pos5_2
  135. if errorlevel 4 goto pos4_2
  136. if errorlevel 3 goto pos3_2
  137. if errorlevel 2 goto pos2_2
  138. if errorlevel 1 goto pos1_2
  139.  
  140. :pos1_2
  141. goto menu1
  142.  
  143. :pos2_2
  144. USELIB 25 INDEX
  145. goto menu2
  146.  
  147. :pos3_2
  148. USELIB 26 INDEX
  149. goto menu2
  150.  
  151. :pos4_2
  152. USELIB 27 INDEX
  153. goto menu2
  154.  
  155. :pos5_2
  156. USELIB 28 INDEX
  157. goto menu2
  158.  
  159. :pos6_2
  160. USELIB 29 INDEX
  161. goto menu2
  162.  
  163. :pos7_2
  164. USELIB 30 INDEX
  165. goto menu2
  166.  
  167. :pos8_2
  168. USELIB 31 INDEX
  169. goto menu2
  170.  
  171. :pos9_2
  172. USELIB 32 INDEX
  173. goto menu2
  174.  
  175. :pos10_2
  176. USELIB 33 INDEX
  177. goto menu2
  178.  
  179. :pos11_2
  180. USELIB 34 INDEX
  181. goto menu2
  182.  
  183. :pos12_2
  184. USELIB 35 INDEX
  185. goto menu2
  186.  
  187. :pos13_2
  188. USELIB 36 INDEX
  189. goto menu2
  190.  
  191. :pos14_2
  192. USELIB 37 INDEX
  193. goto menu2
  194.  
  195. :pos15_2
  196. USELIB 38 INDEX
  197. goto menu2
  198.  
  199. :pos16_2
  200. USELIB 23 INDEX
  201. goto menu2
  202.  
  203. :pos17_2
  204. USELIB 39 INDEX
  205. goto menu2
  206.  
  207. :pos18_2
  208. USELIB 17 INDEX
  209. goto menu2
  210.  
  211. :pos19_2
  212. goto menu3
  213.  
  214. rem ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  215. rem                    SEITE 3
  216. rem ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  217. :menu3
  218. USELIB 40 INDEX
  219. if errorlevel 254 goto end
  220. if errorlevel 19 goto pos19_3
  221. if errorlevel 18 goto pos18_3
  222. if errorlevel 17 goto pos17_3
  223. if errorlevel 16 goto pos16_3
  224. if errorlevel 15 goto pos15_3
  225. if errorlevel 14 goto pos14_3
  226. if errorlevel 13 goto pos13_3
  227. if errorlevel 12 goto pos12_3
  228. if errorlevel 11 goto pos11_3
  229. if errorlevel 10 goto pos10_3
  230. if errorlevel 9 goto pos9_3
  231. if errorlevel 8 goto pos8_3
  232. if errorlevel 7 goto pos7_3
  233. if errorlevel 6 goto pos6_3
  234. if errorlevel 5 goto pos5_3
  235. if errorlevel 4 goto pos4_3
  236. if errorlevel 3 goto pos3_3
  237. if errorlevel 2 goto pos2_3
  238. if errorlevel 1 goto pos1_3
  239.  
  240. :pos1_3
  241. goto menu2
  242.  
  243. :pos2_3
  244. USELIB 41 INDEX
  245. goto menu3
  246.  
  247. :pos3_3
  248. USELIB 42-43 INDEX
  249. goto menu3
  250.  
  251. :pos4_3
  252. USELIB 44-46 INDEX
  253. goto menu3
  254.  
  255. :pos5_3
  256. USELIB 17 INDEX
  257. goto menu3
  258.  
  259. :pos6_3
  260. USELIB 47-49 INDEX
  261. goto menu3
  262.  
  263. :pos7_3
  264. USELIB 50 INDEX
  265. goto menu3
  266.  
  267. :pos8_3
  268. USELIB 53 INDEX
  269. goto menu3
  270.  
  271. :pos9_3
  272. USELIB 54 INDEX
  273. goto menu3
  274.  
  275. :pos10_3
  276. USELIB 55 INDEX
  277. goto menu3
  278.  
  279. :pos11_3
  280. USELIB 56 INDEX
  281. goto menu3
  282.  
  283. :pos12_3
  284. USELIB 57 INDEX
  285. goto menu3
  286.  
  287. :pos13_3
  288. USELIB 58 INDEX
  289. goto menu3
  290.  
  291. :pos14_3
  292. USELIB 44-46 INDEX
  293. goto menu3
  294.  
  295. :pos15_3
  296. USELIB 59 INDEX
  297. goto menu3
  298.  
  299. :pos16_3
  300. USELIB 60 INDEX
  301. goto menu3
  302.  
  303. :pos17_3
  304. USELIB 61 INDEX
  305. goto menu3
  306.  
  307. :pos18_3
  308. USELIB 62 INDEX
  309. goto menu3
  310.  
  311. :pos19_3
  312. goto menu4
  313.  
  314. rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  315. rem          SEITE 4
  316. rem ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  317. :menu4
  318. USELIB 63 INDEX
  319. if errorlevel 254 goto end
  320. if errorlevel 19 goto pos19_4
  321. if errorlevel 7 goto menu4
  322. if errorlevel 6 goto pos6_4
  323. if errorlevel 5 goto pos5_4
  324. if errorlevel 4 goto pos4_4
  325. if errorlevel 3 goto pos3_4
  326. if errorlevel 2 goto pos2_4
  327. if errorlevel 1 goto pos1_4
  328.  
  329. :pos1_4
  330. goto menu3
  331.  
  332. :pos2_4
  333. USELIB 59 INDEX
  334. goto menu4
  335.  
  336. :pos3_4
  337. USELIB 64 INDEX
  338. goto menu4
  339.  
  340. :pos4_4
  341. USELIB 65 INDEX
  342. goto menu4
  343.  
  344. :pos5_4
  345. USELIB 41 INDEX
  346. goto menu4
  347.  
  348. :pos6_4
  349. USELIB 66 INDEX
  350. goto menu4
  351.  
  352. :pos19_4
  353. goto end
  354.  
  355. :end
  356.